Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  579 1733 (N24E54 L=303)   653    170        1 ( 531/1705- 623/1760)  -9.5 E60-E48 N22-N25
      2  196 1301 (S10E67 L=290)   466     61        0 ( 176/1277- 217/1327)  45.0 E69-E65 S11-S08
      3  298 1203 (S14E52 L=305)   860    166        1 ( 275/1128- 336/1281) -84.3 E54-E49 S18-S08
      4 1174 1191 (N07W04 L=  0)   358    118        0 (1133/1144-1202/1254)  82.9 W02-W04 N03-N11
      5  761 1147 (S06E18 L=339)   247     44        0 ( 732/1118- 790/1169)  63.4 E19-E16 S08-S04
      6 1806 1074 (N21W49 L= 45)  1034    214        0 (1752/ 965-1851/1145) -28.3 W42-W56 N16-N23
      7  285 1053 (S23E49 L=308)   950    219        2 ( 213/1022- 359/1088)   0.0 E56-E42 S24-S20
      8  921  746 (S24W02 L=359)   377     80        0 ( 876/ 726- 963/ 774)  59.0 W00-W04 S26-S21
      9 1668  671 (S06W51 L= 48)   373     89        0 (1632/ 650-1709/ 687)  38.7 W48-W54 S07-S03
     10  901  619 (S32W05 L=  2)   646    177        2 ( 820/ 584- 989/ 676)   0.0 E01-W11 S34-S30
     11 1154  517 (S30W25 L= 21)   419    108        1 (1114/ 494-1203/ 549)   0.0 W20-W28 S31-S28
     12 1705  474 (S14W67 L= 63)   706     84        0 (1670/ 438-1739/ 523)  80.5 W64-W68 S16-S10
     13 1286  310 (S38W45 L= 42)   474    112        1 (1233/ 296-1341/ 329)  33.7 W41-W48 S39-S35
  

    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