Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1064 1815 (N59W28 L= 50)  1781    361        3 ( 873/1765-1205/1861)  -1.2 W03-W49 N56-N61
      2 1454 1574 (N32W43 L= 65)   815    284        0 (1339/1490-1557/1620) -52.4 W35-W48 N24-N37
      3  460 1348 (N34E37 L=345)  2142    436        3 ( 398/1169- 552/1528)  66.5 E41-E30 N22-N45
      4 1356 1490 (N29W32 L= 53)   509    164        1 (1283/1469-1433/1513) -24.4 W26-W37 N26-N31
      5 1876 1344 (N08W76 L= 98)   841    103        2 (1850/1301-1897/1396)  80.5 W72-W81 N05-N11
      6  257 1236 (N28E57 L=325)  2861    291        6 ( 166/1133- 349/1341) -24.1 E76-E45 N21-N34
      7  684 1235 (N24E19 L=  3)   458    193        1 ( 623/1198- 750/1301) -41.2 E23-E14 N20-N28
      8 1820 1264 (N06W62 L= 84)   460     46        1 (1802/1240-1837/1285)  18.4 W59-W65 N04-N06
      9 1111 1139 (N12W07 L= 29)   225     84        0 (1069/1124-1154/1157) -31.0 W04-W09 N10-N13
     10 1565 1050 (S01W34 L= 56)   538    102        0 (1507/1032-1618/1068)  -7.1 W30-W38 S02-N00
     11  482  891 (N05E36 L=345)   250     87        1 ( 461/ 855- 507/ 928) -68.2 E37-E34 N02-N07
     12 1699  862 (S15W43 L= 64)  1321    210        0 (1614/ 813-1773/ 926)  12.1 W35-W49 S17-S12
     13  865  644 (S14E16 L=  6)  1241    429        2 ( 739/ 549- 946/ 797)  45.0 E24-E09 S19-S05
     14  546  642 (S11E37 L=345)  1135    186        3 ( 524/ 541- 584/ 716)  61.4 E40-E32 S17-S06
     15  693  643 (S12E27 L=355)   335     68        0 ( 654/ 630- 736/ 659) -18.4 E29-E23 S13-S10
     16  274  573 (S13E66 L=316)  1452    198        4 ( 246/ 502- 304/ 647)  55.0 E75-E60 S18-S08
     17  317  545 (S15E62 L=320)   709     79        1 ( 298/ 501- 334/ 583)  56.3 E65-E59 S18-S12
     18 1506  370 (S47W29 L= 51)  1153    140        3 (1452/ 338-1577/ 417)   4.4 W23-W36 S49-S44
     19 1341  305 (S49W13 L= 35)   541     59        0 (1319/ 270-1358/ 339) -60.3 W10-W14 S52-S45
     20 1276  249 (S53W06 L= 28)  1101    116        1 (1224/ 217-1324/ 292)  -5.2 W00-W11 S56-S48
     21 1272  188 (S61W05 L= 27)   690     66        2 (1233/ 167-1309/ 207) -26.6 W00-W10 S64-S58
  

    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