Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1081 1507 (N28W10 L=356)   319     98        0 (1036/1482-1136/1526)   0.0 W06-W13 N26-N28
      2  616 1494 (N33E22 L=324)   270     48        0 ( 586/1477- 646/1513) -31.0 E24-E19 N31-N35
      3  587 1236 (N17E25 L=321)   776    254        2 ( 478/1170- 678/1319)  28.3 E32-E18 N14-N21
      4 1132 1258 (N12W09 L=355)   281     68        1 (1105/1236-1162/1294) -63.4 W07-W10 N10-N14
      5 1735  973 (S12W46 L= 32)  4171    603        7 (1585/ 721-1790/1204) -71.6 W37-W51 S27-N03
      6  137  953 (N06E67 L=279)  1909    141        6 (  69/ 917- 212/ 996)  -9.5 E81-E57 N03-N08
      7  529  895 (S02E32 L=314)   246     47        1 ( 500/ 868- 557/ 911) -14.0 E33-E29 S03-N00
      8  649  675 (S17E28 L=318)   855    208        1 ( 610/ 581- 674/ 772)  57.5 E33-E25 S21-S10
      9  879  548 (S27E16 L=330)  5322   1133        8 ( 458/ 289-1309/ 769)  13.2 E67-W14 S39-S18
     10 1669  592 (S35W43 L= 29)  3580    474        7 (1464/ 471-1797/ 717)  19.0 W25-W55 S41-S27
     11  408  546 (S21E51 L=295)  2223    349        5 ( 354/ 449- 452/ 703)  48.8 E61-E43 S27-S11
     12  507  670 (S15E38 L=308)   276     62        0 ( 489/ 636- 522/ 701)  76.0 E39-E36 S17-S13
     13 1258  416 (S42W09 L=355)   351     67        0 (1223/ 396-1296/ 438) -31.0 W05-W11 S43-S39
     14 1088  385 (S42E05 L=341)   346     77        1 (1047/ 368-1133/ 400) -18.4 E08-E01 S43-S39
     15  710  206 (S50E49 L=297)  1297    133        2 ( 662/ 177- 773/ 234)   0.0 E57-E39 S52-S47
  

    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