Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1531 1563 (N25W51 L= 41)  1046    171        3 (1502/1479-1551/1640)  39.3 W46-W57 N19-N28
      2 1194 1557 (N34W27 L= 16)  1145    211        2 (1110/1490-1269/1608) -65.6 W21-W30 N28-N39
      3  921 1282 (N24E00 L=349)   500    103        2 ( 899/1229- 947/1332)  71.6 E02-W01 N21-N27
      4 1231 1268 (N16W18 L=  7)   762    240        0 (1132/1208-1319/1323) -54.0 W13-W22 N10-N21
      5  822 1187 (N21E09 L=341)   264     58        1 ( 794/1158- 842/1218)  71.6 E10-E06 N19-N22
      6  495 1046 (N19E33 L=316)   583     91        1 ( 475/ 996- 524/1093)  51.3 E35-E30 N16-N21
      7 1310  967 (S03W15 L=  4)   474    202        0 (1250/ 890-1375/1034)  26.6 W10-W20 S05-N00
      8  164  943 (N17E69 L=281)   497     94        0 ( 138/ 913- 186/ 981) -33.7 E72-E65 N15-N19
      9  564  889 (N09E31 L=318)   220     60        1 ( 546/ 859- 582/ 922) -76.0 E31-E30 N06-N10
     10  169  811 (N09E71 L=278)  1226     89        1 ( 119/ 791- 213/ 831)   5.0 E86-E63 N07-N10
     11 1165  662 (S17W00 L=349)  1600    516        4 ( 961/ 601-1291/ 787) -24.0 E11-W07 S21-S11
     12 1468  663 (S25W19 L=  9)  1380    315        4 (1335/ 581-1594/ 740)   5.4 W08-W29 S27-S22
     13  650  384 (S24E43 L=307)   374     64        0 ( 633/ 349- 667/ 418)  33.7 E45-E39 S26-S22
     14  937  306 (S37E27 L=322)   355     54        1 ( 921/ 278- 953/ 338)  63.4 E28-E25 S39-S33
     15  656  216 (S38E60 L=289)  1129     91        1 ( 638/ 168- 675/ 260)  27.8 E74-E53 S44-S33
  

    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