Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  662 1829 (N40E60 L= 60)  1442    105        1 ( 631/1776- 701/1881) -12.3 E81-E49 N35-N43
      2  885 1646 (N31E26 L= 94)   574    166        0 ( 855/1579- 924/1708) -48.4 E28-E20 N27-N36
      3  331 1555 (N14E66 L= 54)  3246    192        5 ( 264/1489- 381/1651) -85.2 E73-E58 N08-N20
      4  420 1601 (N18E59 L= 60)   790     47        1 ( 392/1572- 452/1631) -12.5 E63-E54 N16-N20
      5  240 1337 (S01E63 L= 56)   667    119        2 ( 214/1278- 257/1391) -63.4 E67-E61 S04-N02
      6  984 1089 (N00E04 L=116)  1402    351        2 ( 940/ 920-1046/1231) -53.7 E08-W03 S08-N07
      7 1788 1084 (N19W50 L=170)  1758    284        0 (1703/ 971-1859/1190) -25.3 W41-W60 N13-N23
      8  471 1116 (S09E36 L= 84)   476    145        0 ( 404/1097- 531/1150)  24.0 E41-E32 S10-S06
      9 1113  718 (S18W12 L=132)   197     47        0 (1097/ 689-1130/ 744) -45.0 W11-W14 S19-S16
     10 1572  611 (S13W46 L=166)  1566    320        0 (1429/ 557-1706/ 662)  35.2 W37-W54 S19-S07
     11 1580  411 (S24W59 L=179)  2187    191        6 (1482/ 383-1673/ 440)  14.0 W49-W70 S27-S21
     12  915  378 (S45W12 L=131)   741    132        1 ( 843/ 356- 972/ 410)  15.3 W05-W16 S47-S42
     13 1077  239 (S51W34 L=154)   332     57        1 (1052/ 221-1108/ 265)  -7.1 W29-W38 S52-S49
  

    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