Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1059 1767 (N54E09 L= 85)   523    104        1 (1002/1746-1117/1786)   0.0 E15-E03 N52-N55
      2 1382 1593 (N43W22 L=117)   318     28        0 (1355/1576-1403/1611)  11.3 W19-W24 N41-N44
      3 1588 1441 (N34W39 L=133)   849    243        0 (1500/1371-1673/1500) -26.6 W31-W46 N29-N37
      4 1230 1344 (N23W10 L=105)  1510    584        2 (1057/1223-1388/1489) -28.4 E03-W21 N17-N31
      5  304 1445 (N19E63 L= 32)   654    132        1 ( 264/1402- 365/1477) -10.6 E69-E53 N17-N20
      6 1111 1244 (N16W03 L= 98)   254    106        1 (1096/1194-1130/1295)  90.0 W01-W04 N12-N18
      7  626 1002 (S04E25 L= 70)   216     83        0 ( 590/ 986- 653/1034)  36.9 E27-E23 S05-S02
      8 1025  722 (S17W03 L= 98)   565    140        3 ( 974/ 685-1094/ 759)  15.9 W00-W07 S20-S14
      9 1483  611 (S20W36 L=131)   616    136        1 (1433/ 587-1541/ 631)  14.0 W32-W41 S21-S18
     10 1780  595 (S18W67 L=162)   515     75        0 (1746/ 574-1808/ 621)  23.2 W63-W70 S19-S16
     11  327  555 (S38E56 L= 39)  1370    146        1 ( 265/ 515- 391/ 597)  15.9 E74-E45 S42-S33
     12 1534  365 (S37W55 L=150)   440     54        1 (1509/ 344-1562/ 383)  71.6 W52-W57 S38-S34
     13 1044  210 (S58W18 L=113)   640    101        0 (1030/ 160-1058/ 263) -50.2 W14-W24 S64-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