Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  796 1362 (N27E06 L=335)   239     73        0 ( 762/1338- 836/1385) -59.0 E08-E03 N24-N29
      2 1846 1116 (S11W58 L= 39)  3989    614        6 (1808/ 807-1885/1345)  71.6 W52-W68 S29-N01
      3 1707 1189 (S04W46 L= 28)  2092    372        1 (1602/1024-1752/1310) -77.5 W41-W50 S13-N05
      4  787 1254 (N21E09 L=333)   432    176        1 ( 694/1237- 879/1274) -14.0 E14-E02 N19-N22
      5 1144 1217 (N11W11 L=352)   210     77        0 (1104/1198-1185/1236) -36.9 W09-W13 N09-N12
      6  148 1049 (N22E65 L=277)   662    109        1 ( 116/ 999- 165/1083) -50.2 E70-E62 N18-N24
      7 1320  878 (S12W14 L=355)   390     89        3 (1300/ 835-1347/ 922)  68.2 W12-W15 S14-S09
      8 1370  884 (S13W17 L=358)   282     43        2 (1344/ 864-1395/ 909) -56.3 W15-W18 S14-S10
      9 1058  552 (S25E09 L=332)  4067   1139        3 ( 737/ 189-1445/ 831)  19.1 E53-W20 S43-S17
     10  868  717 (S11E16 L=326)   215    127        0 ( 813/ 692- 924/ 746)   7.1 E19-E11 S11-S10
     11 1822  685 (S37W54 L= 35)   426     28        1 (1799/ 666-1849/ 698)  -7.1 W50-W58 S38-S35
     12  438  497 (S15E52 L=289)   662    120        2 ( 403/ 431- 469/ 555)  69.4 E55-E50 S19-S11
     13  492  300 (S29E64 L=278)   808     57        0 ( 465/ 270- 524/ 322)  12.1 E72-E58 S30-S27
  

    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