Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1212 1705 (N40E06 L= 21)   441     74        0 (1173/1683-1246/1731)  51.3 E07-E03 N37-N42
      2 1303 1635 (N37W03 L= 29)   340     34        0 (1280/1611-1328/1656) -21.8 W00-W05 N35-N38
      3  430 1539 (N12E52 L=335)  1302    259        1 ( 389/1425- 454/1644) -68.2 E56-E48 N04-N19
      4  978 1406 (N14E11 L= 15)   681    198        0 ( 948/1313-1049/1487) -45.0 E14-E05 N09-N18
      5 1363 1458 (N26W11 L= 37)   229     47        0 (1343/1432-1384/1483) -33.7 W09-W12 N24-N27
      6  318 1259 (S07E51 L=335)   327     65        0 ( 295/1226- 343/1299)  63.4 E52-E50 S08-S04
      7 1762 1217 (N23W44 L= 70)   451     90        0 (1738/1165-1785/1265) -45.0 W41-W46 N20-N25
      8  542 1105 (S12E31 L=356)   788    178        0 ( 484/1026- 598/1191)  65.6 E33-E28 S17-S06
      9 1264 1171 (N06W10 L= 37)   210     41        2 (1237/1152-1289/1188)  33.7 W08-W11 N05-N07
     10  151 1092 (S18E65 L=322)  1222    173        0 ( 133/ 994- 165/1165) -61.4 E69-E61 S24-S13
     11 1154  974 (S07W08 L= 35)  1153    324        2 (1046/ 835-1279/1124)  71.6 W05-W12 S17-N04
     12  854  800 (S24E05 L= 21)   656    136        1 ( 781/ 781- 930/ 821)  24.0 E09-W00 S25-S20
     13 1674  713 (S08W49 L= 76)  1154    195        1 (1584/ 651-1735/ 781)  57.5 W43-W52 S13-S02
  

    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