Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  341 1607 (N11E68 L= 22)  1741    281        4 ( 295/1548- 370/1665) -33.7 E74-E61 N07-N15
      2  429 1564 (N10E55 L= 34)   671    107        1 ( 386/1537- 476/1595)  20.6 E60-E52 N07-N12
      3 1089 1435 (N18E08 L= 82)   683    207        2 (1068/1340-1112/1536) -59.7 E11-E04 N12-N24
      4 1457 1453 (N31W14 L=104)   454     72        2 (1430/1408-1479/1490) -59.0 W11-W15 N28-N33
      5 1284 1300 (N16W07 L= 97)   531    155        1 (1254/1222-1305/1381) -58.0 W03-W09 N11-N19
      6  687 1295 (S00E26 L= 63)   353     79        0 ( 653/1252- 730/1330)  -8.1 E29-E22 S01-N01
      7  180 1257 (S13E67 L= 23)   498     78        1 ( 156/1228- 199/1288)  53.1 E68-E64 S14-S10
      8 1092 1011 (S05W04 L= 94)   304     63        0 (1070/ 975-1111/1053) -76.0 W03-W05 S07-S03
      9  511  909 (S26E28 L= 61)  1173    214        3 ( 434/ 813- 574/1009)  71.6 E33-E25 S33-S18
     10  864  957 (S15E07 L= 83)   183     84        1 ( 843/ 903- 885/ 994) -78.7 E08-E06 S17-S12
     11 1756  886 (N08W50 L=139)   371     41        1 (1741/ 861-1773/ 913)  76.0 W47-W51 N06-N10
     12  319  792 (S38E43 L= 47)  1510    295        3 ( 226/ 744- 427/ 837)  25.3 E52-E33 S43-S33
     13 1807  747 (N03W60 L=150)  1196    343        1 (1704/ 716-1889/ 805)  24.0 W50-W68 N00-N09
     14  786  688 (S32E05 L= 85)   926    283        0 ( 704/ 595- 879/ 794)  70.6 E07-E01 S40-S23
     15 1137  694 (S21W16 L=106)   620    171        0 (1044/ 644-1208/ 759)  61.4 W12-W18 S26-S15
     16 1402  677 (S14W32 L=122)   297    123        1 (1363/ 653-1454/ 716)   0.0 W28-W36 S15-S13
     17 1781  645 (S03W63 L=153)   426     49        0 (1759/ 617-1804/ 671)  68.2 W61-W65 S05-N00
     18 1179  539 (S29W25 L=115)   245     76        1 (1139/ 520-1221/ 560)  53.1 W22-W26 S30-S26
     19 1641  484 (S16W59 L=149)   382     75        0 (1612/ 463-1676/ 501)  45.0 W56-W61 S17-S13
     20 1408  351 (S31W50 L=140)  1732    270        2 (1306/ 314-1509/ 393)  45.0 W43-W56 S36-S25
  

    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