Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1031 1724 (N36E17 L= 88)   788    142        2 ( 960/1688-1094/1759)  -9.5 E23-E11 N34-N37
      2  387 1537 (N12E55 L= 51)   979    210        5 ( 337/1463- 421/1600) -84.3 E58-E52 N06-N16
      3 1235 1507 (N26W02 L=108)   364    103        1 (1195/1469-1279/1555)  60.3 W00-W04 N22-N29
      4 1533 1506 (N34W23 L=129)  1323    343        2 (1358/1446-1651/1542)   7.1 W09-W33 N29-N37
      5 1080 1257 (N07E02 L=104)   293     83        0 (1036/1237-1127/1276)  45.0 E03-W00 N05-N08
      6  301 1142 (S13E50 L= 56)   356     74        1 ( 262/1122- 335/1157)   8.1 E53-E46 S13-S11
      7 1829 1093 (N16W52 L=158)   770    122        0 (1780/1045-1865/1134) -16.7 W46-W56 N14-N17
      8 1441 1039 (N03W24 L=129)   292     95        0 (1428/ 984-1459/1086) -59.0 W22-W25 N00-N05
      9  898  972 (S13E06 L=100)   956    499        0 ( 694/ 892-1083/1050)  35.0 E17-W03 S20-S05
     10 1855  870 (N05W60 L=166)  1272    276        0 (1823/ 746-1872/1003) -70.3 W56-W63 S02-N12
     11  310  954 (S24E47 L= 59)   379     65        2 ( 274/ 928- 340/ 976)  26.6 E50-E44 S25-S21
     12 1137  839 (S15W10 L=116)   186     37        0 (1116/ 812-1159/ 862)  90.0 W09-W11 S16-S13
     13 1297  727 (S18W23 L=129)   237     40        1 (1277/ 704-1325/ 750) -18.4 W21-W24 S19-S16
     14 1136  685 (S24W14 L=120)   248    121        0 (1078/ 666-1187/ 719)   0.0 W10-W17 S24-S22
     15 1452  467 (S28W44 L=150)   471    125        1 (1415/ 435-1504/ 493)  45.0 W40-W47 S30-S25
  

    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