Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  389 1575 (N11E60 L=  2)  5629    594       12 ( 205/1457- 519/1725)  54.0 E79-E52 N01-N23
      2 1526 1466 (N35W20 L= 82)  2379    548        3 (1411/1220-1652/1672) -42.7 W07-W33 N23-N48
      3  921 1431 (N15E17 L= 45)   317    111        0 ( 870/1392- 946/1464)  -9.5 E20-E14 N13-N16
      4 1363 1386 (N25W10 L= 72)   334    144        0 (1307/1333-1421/1420)  -6.3 W05-W14 N23-N25
      5  650 1378 (N05E31 L= 31)   588    126        2 ( 587/1347- 697/1419)  45.0 E34-E28 N02-N08
      6 1784 1172 (N26W46 L=108)  1214    254        2 (1734/1088-1848/1278) -28.3 W40-W54 N21-N30
      7 1481 1214 (N18W21 L= 83)   245     43        0 (1463/1183-1497/1241) -45.0 W19-W22 N16-N19
      8  563 1186 (S08E31 L= 31)   328    141        0 ( 527/1128- 584/1233) -63.4 E34-E29 S11-S05
      9  414 1130 (S14E40 L= 22)   261     71        0 ( 378/1102- 440/1145)   0.0 E43-E37 S15-S13
     10  157 1027 (S25E66 L=357)  1302    120        5 ( 110/ 990- 213/1072)  10.6 E74-E57 S28-S22
     11 1166  864 (S10W12 L= 74)   299    104        1 (1124/ 843-1206/ 898)  53.1 W10-W13 S11-S07
     12 1879  763 (N06W69 L=131)  1714    142        3 (1849/ 699-1908/ 827) -60.3 W65-W74 N03-N10
     13 1735  695 (S02W55 L=118)  1860    158        5 (1679/ 619-1786/ 771) -24.4 W49-W61 S05-N01
  

    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