Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1328 1610 (N36W03 L= 23)   421     40        1 (1303/1587-1358/1632)  14.0 W01-W05 N34-N38
      2  120 1268 (S10E78 L=303)  1317    119        1 ( 104/1221- 133/1322) -50.2 E82-E74 S12-S06
      3  334 1104 (S17E46 L=334)  1275    280        0 ( 272/ 984- 376/1251)  83.3 E49-E43 S25-S08
      4  130 1145 (S18E69 L=312)   943    274        4 (  86/1104- 173/1191)  24.0 E73-E64 S19-S14
      5  611 1110 (S12E26 L=354)   535    120        2 ( 572/1049- 654/1144) -38.7 E29-E23 S14-S09
      6  757 1081 (S10E16 L=  4)   203     66        1 ( 721/1059- 793/1099)   0.0 E18-E14 S11-S09
      7 1900 1002 (N17W61 L= 81)  1086    144        5 (1873/ 950-1928/1042) -78.7 W57-W64 N13-N20
      8 1094  789 (S18W10 L= 30)   574    214        2 (1057/ 691-1130/ 894) -51.3 W05-W14 S23-S13
      9 1687  771 (S03W48 L= 68)  1349    266        1 (1602/ 726-1775/ 855)   0.0 W38-W57 S04-N00
     10  763  714 (S31E08 L= 12)  1003    337        0 ( 590/ 674- 911/ 745)  12.8 E20-W02 S35-S28
     11 1521  447 (S25W51 L= 71)  2834    566        4 (1352/ 371-1717/ 552)  42.1 W41-W64 S33-S14
     12 1223  520 (S30W28 L= 48)   230     48        1 (1197/ 503-1251/ 537)  14.0 W25-W29 S31-S28
     13 1629  394 (S23W63 L= 83)  1636    209        2 (1580/ 339-1660/ 453) -60.3 W59-W66 S27-S19
  

    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