Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  495 1625 (N16E54 L=189)   422    116        1 ( 472/1588- 510/1655) -29.7 E57-E50 N13-N17
      2 1203 1529 (N29E04 L=238)   255     36        0 (1174/1512-1230/1543)  33.7 E06-E02 N27-N29
      3  417 1500 (N06E54 L=189)   460    105        1 ( 375/1486- 461/1515)  15.9 E57-E50 N05-N08
      4 1297 1387 (N23W05 L=248)   342     61        0 (1276/1357-1317/1426) -78.7 W04-W06 N20-N25
      5  257 1175 (S16E55 L=187)  1302    281        0 ( 171/1096- 320/1296)  57.3 E62-E51 S21-S07
      6  864 1236 (N02E15 L=228)   188     95        0 ( 845/1189- 879/1285) -45.0 E16-E12 N00-N04
      7 1217 1165 (N07W07 L=249)   294     82        0 (1173/1146-1258/1183)  11.3 W04-W09 N05-N08
      8  580 1124 (S11E28 L=214)   294    122        1 ( 519/1101- 629/1142)  23.2 E32-E25 S13-S10
      9  658  883 (S23E18 L=225)   435    101        0 ( 631/ 830- 693/ 927)  81.9 E19-E16 S26-S19
     10  181  792 (S41E58 L=185)   532    117        0 ( 153/ 777- 206/ 811)   9.5 E60-E54 S41-S38
     11 1399  711 (S12W31 L=273)   343     74        0 (1361/ 685-1442/ 744)  63.4 W29-W32 S14-S08
     12  963  693 (S26W06 L=249)   276     93        0 ( 925/ 672-1015/ 723)  -9.5 W03-W09 S26-S24
     13 1226  663 (S20W22 L=265)   215     96        0 (1189/ 633-1249/ 705) -63.4 W20-W23 S21-S17
     14  789  677 (S32E04 L=238)   219     70        0 ( 742/ 661- 822/ 692)   9.5 E07-E01 S32-S30
     15 1391  574 (S19W36 L=278)   235     98        2 (1353/ 545-1429/ 606)  -9.5 W33-W39 S20-S18
     16 1678  504 (S13W62 L=304)   616    111        0 (1651/ 463-1697/ 558) -63.4 W58-W64 S16-S10
     17  806  408 (S49W07 L=250)   563    116        0 ( 785/ 361- 824/ 461) -40.6 W04-W11 S52-S45
     18  938  321 (S50W23 L=265)  1126    172        4 ( 906/ 272- 992/ 396) -24.8 W16-W29 S54-S44
     19 1220  357 (S37W38 L=280)   442     66        1 (1192/ 328-1248/ 391) -53.1 W35-W40 S39-S35
     20 1066  312 (S46W32 L=274)   426     70        0 (1037/ 287-1089/ 346) -45.0 W29-W34 S47-S43
     21  875  295 (S55W20 L=263)   297     48        0 ( 854/ 272- 894/ 314) -53.1 W18-W22 S56-S52
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y