Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1567 1591 (N28W56 L=230)  1444    297        3 (1436/1546-1682/1637) -33.7 W47-W67 N22-N34
      2 1250 1420 (N26W23 L=198)  1100    243        1 (1158/1336-1316/1506) -74.1 W19-W26 N19-N33
      3 1409 1443 (N24W35 L=209)   385    161        0 (1332/1423-1469/1471) -24.0 W30-W39 N21-N26
      4  842 1153 (N18E09 L=165)   204     76        0 ( 816/1126- 876/1185) -63.4 E10-E06 N15-N20
      5 1105 1057 (N07W05 L=180)   214    106        0 (1057/1042-1144/1074) -21.8 W02-W07 N06-N08
      6  163  925 (N12E69 L=105)  1191    126        0 ( 140/ 861- 186/ 978) -66.8 E72-E65 N08-N15
      7 1453  884 (S10W24 L=198)   796    253        0 (1428/ 824-1513/ 969)  76.0 W21-W27 S13-S05
      8 1221  874 (S06W09 L=183)   425    146        1 (1156/ 852-1294/ 901) -35.5 W05-W12 S08-S02
      9 1324  757 (S15W13 L=188)   431    122        0 (1296/ 709-1345/ 821)  50.2 W10-W15 S17-S11
     10 1644  669 (S28W36 L=211)  1092    200        0 (1586/ 595-1712/ 742)  32.5 W31-W42 S32-S25
     11 1443  618 (S27W20 L=194)  1279    421        0 (1319/ 482-1591/ 738)  26.6 W08-W31 S33-S22
     12  493  521 (S16E47 L=127)   716    143        2 ( 448/ 453- 531/ 560) -90.0 E49-E43 S20-S12
     13  394  496 (S16E58 L=117)   981    183        1 ( 318/ 439- 452/ 546) -31.0 E64-E53 S20-S12
  

    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