Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1229 1387 (N20W22 L= 98)   406    107        0 (1209/1330-1251/1442)  39.8 W19-W25 N17-N22
      2 1798 1255 (S05W57 L=133)  1882    189        1 (1764/1162-1836/1368)  67.4 W54-W61 S10-N02
      3 1880 1253 (S08W67 L=143)   502    121        0 (1859/1226-1894/1293)  15.9 W63-W70 S09-S06
      4 1027 1182 (N15W04 L= 80)   437    171        1 ( 946/1162-1118/1214) -16.7 W00-W10 N12-N16
      5  626 1049 (N18E23 L= 53)   696    222        1 ( 536/1022- 746/1088) -24.8 E28-E15 N13-N21
      6 1671 1019 (S13W39 L=114)   272     61        2 (1654/ 983-1688/1055)  45.0 W37-W40 S14-S10
      7 1570  838 (S20W27 L=103)  1309    404        2 (1530/ 715-1598/1036)  57.1 W22-W33 S27-S09
      8 1640  719 (S30W30 L=106)   265     82        0 (1602/ 691-1680/ 750)   0.0 W26-W34 S30-S28
      9 1131  649 (S18E04 L= 71)   378    124        2 (1085/ 620-1168/ 676)   0.0 E07-E01 S19-S16
     10 1313  559 (S29W04 L= 79)  1163    273        2 (1200/ 492-1379/ 673)  21.0 E03-W10 S32-S23
     11  751  592 (S11E28 L= 48)   232     89        0 ( 710/ 573- 801/ 621)   0.0 E30-E23 S11-S10
     12  855  515 (S18E24 L= 51)   373    161        0 ( 834/ 448- 877/ 586)  48.8 E27-E20 S22-S14
     13  520  425 (S16E51 L= 24)   578    119        4 ( 482/ 394- 569/ 458) -59.0 E53-E48 S18-S13
     14  540  333 (S22E55 L= 20)  1470    261        7 ( 501/ 277- 591/ 378)  53.1 E61-E50 S26-S18
  

    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