Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1048 1773 (N54E11 L= 82)   329     62        1 (1022/1761-1083/1790)  -8.1 E13-E06 N52-N55
      2  374 1566 (N28E62 L= 30)   942    152        3 ( 349/1494- 400/1636) -42.0 E68-E58 N23-N32
      3 1418 1606 (N44W26 L=118)   418     68        1 (1381/1588-1453/1621)   0.0 W22-W29 N42-N45
      4 1215 1364 (N24W09 L=101)  1709    491        2 (1070/1221-1358/1520) -37.3 E02-W19 N16-N33
      5  302 1453 (N20E63 L= 29)   512     58        1 ( 275/1432- 336/1469)  -5.7 E68-E58 N18-N20
      6 1658 1413 (N32W45 L=138)   548    127        0 (1605/1373-1699/1459) -35.5 W41-W49 N29-N35
      7 1323 1306 (N22W17 L=109)   361    114        0 (1274/1280-1375/1340) -15.9 W13-W20 N20-N23
      8 1140 1258 (N17W05 L= 97)   419    145        0 (1116/1183-1159/1330) -77.5 W02-W06 N12-N21
      9 1068  718 (S17W06 L= 98)   605    157        2 (1011/ 682-1129/ 755)  39.8 W02-W09 S19-S14
     10  274  739 (S25E55 L= 37)   371     68        3 ( 238/ 718- 313/ 753)   6.3 E60-E50 S26-S23
     11 1526  611 (S19W40 L=132)   735    159        1 (1459/ 588-1607/ 628)  14.0 W34-W46 S20-S17
     12  342  549 (S38E54 L= 38)  1493    176        1 ( 272/ 508- 416/ 592)  13.6 E72-E43 S42-S33
     13 1061  194 (S60W22 L=114)   827    101        0 (1039/ 147-1077/ 253) -57.3 W16-W28 S66-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