Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1107 1656 (N43E06 L=319)   555     76        1 (1080/1614-1130/1696) -56.3 E09-E03 N39-N45
      2  343 1456 (N15E59 L=267)  1268    135        1 ( 318/1384- 373/1522) -73.3 E61-E55 N10-N20
      3  522 1465 (N19E43 L=283)   270     64        1 ( 499/1436- 547/1496) -18.4 E45-E39 N17-N20
      4  825 1401 (N20E19 L=307)   213     75        0 ( 798/1379- 863/1420)  36.9 E20-E16 N18-N21
      5 1683 1323 (N29W44 L=  9)   480    116        1 (1646/1271-1711/1374) -45.0 W40-W46 N25-N32
      6 1011 1274 (N15E05 L=321)   300    107        0 ( 978/1244-1046/1323) -38.7 E07-E02 N13-N17
      7 1781 1247 (N26W54 L= 20)   501     39        0 (1757/1226-1806/1271)  45.0 W51-W57 N23-N27
      8 1177  734 (S15W14 L=340)   933    280        2 (1104/ 649-1227/ 787)  90.0 W09-W17 S20-S11
      9 1362  647 (S18W28 L=354)   714    242        1 (1259/ 581-1440/ 711)  50.7 W23-W32 S23-S12
     10 1278  678 (S17W22 L=347)   276     76        2 (1255/ 645-1303/ 708)  76.0 W20-W23 S19-S15
     11  513  630 (S33E31 L=295)  1064    228        1 ( 427/ 592- 609/ 678)  22.4 E39-E22 S37-S28
     12 1556  470 (S26W51 L= 17)  4192    582        6 (1353/ 387-1795/ 634)  38.4 W36-W68 S34-S11
     13  968  388 (S43W09 L=334)  1487    288        5 ( 840/ 355-1100/ 432)  26.6 E01-W18 S47-S37
     14  781  378 (S48E07 L=319)   281     34        1 ( 763/ 354- 797/ 402) -63.4 E08-E05 S49-S45
  

    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