Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  369 1599 (N11E63 L=184)  2383    371       10 ( 262/1521- 456/1694)  47.3 E72-E57 N05-N19
      2  838 1605 (N22E28 L=219)   403    108        1 ( 782/1576- 890/1638)   0.0 E32-E23 N20-N23
      3 1231 1331 (N16W03 L=251)   747    189        0 (1170/1251-1289/1424) -35.0 E02-W08 N12-N19
      4  567 1244 (S06E32 L=215)   291    104        0 ( 515/1233- 618/1254)  26.6 E35-E29 S07-S04
      5  436 1058 (S19E37 L=210)   320    107        1 ( 403/1021- 459/1088) -53.1 E39-E34 S21-S17
      6  354  975 (S26E42 L=205)   305     70        1 ( 325/ 953- 384/ 994)  31.0 E44-E39 S27-S24
      7  391  876 (S31E38 L=210)   626    111        1 ( 346/ 854- 451/ 905)   0.0 E41-E32 S32-S29
      8 1030  814 (S18W06 L=253)   979    326        0 ( 869/ 776-1194/ 839)  17.5 E03-W16 S22-S15
      9  702  816 (S27E14 L=234)   463    131        1 ( 636/ 797- 770/ 838)  12.5 E18-E09 S28-S25
     10 1300  630 (S21W28 L=275)  1325    416        0 (1135/ 532-1464/ 694)  11.8 W17-W42 S25-S16
     11 1602  537 (S16W52 L=300)   370     48        0 (1578/ 512-1625/ 562)  71.6 W51-W54 S17-S14
     12 1608  431 (S21W59 L=307)   552    179        0 (1589/ 398-1639/ 472) -12.5 W55-W64 S22-S19
     13 1341  321 (S36W48 L=295)   357     46        1 (1321/ 300-1368/ 341)  14.0 W45-W49 S37-S34
  

    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