Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1317 1610 (N42W09 L=302)   915    198        2 (1221/1552-1381/1654)   0.0 W00-W14 N38-N44
      2 1521 1546 (N42W28 L=321)   901    152        2 (1457/1488-1572/1591) -29.1 W21-W32 N38-N44
      3  496 1443 (N14E43 L=250)  1356    232        3 ( 419/1381- 545/1550) -70.0 E49-E38 N10-N21
      4  834 1480 (N23E21 L=272)   683    149        2 ( 796/1415- 869/1547) -53.1 E25-E18 N18-N26
      5  218 1420 (N09E72 L=221)  1180    154        1 ( 194/1355- 244/1497) -52.1 E75-E67 N04-N13
      6  358 1429 (N11E55 L=239)   801    126        1 ( 319/1388- 382/1483) -63.4 E58-E51 N08-N14
      7  432 1369 (N09E46 L=248)   956    137        3 ( 387/1329- 501/1417)   6.3 E49-E40 N06-N11
      8 1850 1186 (N24W60 L=353)   494     80        0 (1826/1155-1874/1221) -38.7 W56-W63 N22-N26
      9 1553 1168 (N17W31 L=324)   256     76        0 (1541/1135-1564/1214)  90.0 W30-W31 N14-N19
     10  314 1045 (S12E48 L=245)   936    125        0 ( 282/ 983- 347/1104)  58.0 E50-E45 S16-S08
     11  454  994 (S13E36 L=258)   227     50        0 ( 431/ 972- 474/1016) -33.7 E37-E34 S13-S11
     12  696  893 (S15E18 L=276)   837    347        0 ( 570/ 823- 803/ 942)   7.1 E25-E09 S18-S12
     13 1178  817 (S10W13 L=306)   203     82        1 (1157/ 779-1215/ 841)  68.2 W12-W14 S13-S08
     14 1505  518 (S22W44 L=337)  2088    448        2 (1316/ 419-1695/ 595)  39.3 W33-W58 S32-S14
  

    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