Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1090 1795 (N44E19 L=354)   632     96        0 (1045/1770-1146/1817)   0.0 E22-E13 N42-N46
      2 1310 1683 (N42W02 L= 15)   459     70        1 (1270/1651-1342/1712) -31.0 E01-W04 N39-N43
      3 1382 1646 (N41W08 L= 21)   310     62        1 (1363/1622-1404/1681) -53.1 W06-W10 N38-N43
      4  593 1567 (N16E40 L=332)   756    189        2 ( 567/1496- 614/1639) -48.4 E44-E36 N11-N20
      5 1486 1575 (N39W18 L= 30)   527     82        0 (1450/1552-1529/1600)  15.9 W14-W21 N36-N40
      6 1192 1332 (N14W03 L= 15)  1060    282        1 (1145/1215-1275/1462) -55.3 E03-W09 N08-N21
      7 1888 1162 (N24W57 L= 70)   700    109        0 (1856/1126-1915/1214) -23.2 W53-W60 N22-N26
      8  261 1077 (S18E53 L=320)  1092    173        0 ( 226/ 984- 282/1153) -56.3 E57-E49 S23-S13
      9 1453 1103 (N07W23 L= 36)   299     86        0 (1415/1061-1479/1128) -14.0 W20-W25 N05-N08
     10  735 1036 (S13E17 L=356)   993    158        1 ( 655/ 957- 800/1115)  65.6 E20-E14 S18-S07
     11 1357  886 (S07W22 L= 35)  1019    240        0 (1275/ 774-1448/1000)  76.0 W19-W25 S15-N01
     12 1030  736 (S23W07 L= 20)   749    168        2 ( 944/ 712-1118/ 770)  10.3 W01-W12 S25-S21
     13 1785  642 (S08W63 L= 76)  1658    223        1 (1708/ 574-1844/ 722)  59.7 W56-W67 S13-S01
  

    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