Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  441 1588 (N20E57 L=256)   600     95        0 ( 413/1540- 468/1624) -80.5 E59-E55 N16-N22
      2 1010 1515 (N27E13 L=301)  1043    315        2 ( 869/1431-1127/1572)  -8.5 E23-E03 N24-N29
      3 1209 1481 (N30W01 L=315)   343    146        0 (1161/1430-1250/1539) -35.5 E03-W04 N27-N32
      4  562 1410 (N11E38 L=276)   301     72        1 ( 542/1381- 589/1437) -71.6 E39-E36 N09-N12
      5 1767 1225 (N27W49 L=  3)  1720    229        2 (1731/1119-1796/1325)  75.1 W45-W54 N19-N34
      6  291 1126 (S11E52 L=262)   656     99        2 ( 250/1092- 326/1150)  39.8 E55-E49 S13-S08
      7 1600 1046 (N12W36 L=349)   284     49        1 (1580/1020-1623/1073) -33.7 W33-W37 N10-N13
      8 1872  947 (N13W65 L= 18)  1333    144        3 (1844/ 877-1895/1006)  77.5 W61-W68 N07-N16
      9  364  923 (S21E42 L=271)   890    124        0 ( 300/ 888- 445/ 958)   8.7 E48-E35 S23-S19
     10 1810  913 (N09W57 L= 11)   510     64        2 (1795/ 872-1825/ 948) -53.1 W55-W59 N06-N11
     11 1260  618 (S21W24 L=338)  1448    357        2 (1202/ 492-1385/ 718)  72.6 W21-W29 S28-S12
     12  339  602 (S44E48 L=266)   638     69        2 ( 320/ 565- 357/ 639)  56.3 E51-E44 S46-S40
     13  730  587 (S35E10 L=304)   353    180        0 ( 665/ 568- 809/ 620)  26.6 E14-E04 S37-S31
     14 1341  490 (S27W35 L=349)   349    129        0 (1280/ 478-1397/ 501)  20.6 W30-W39 S28-S25
     15 1512  419 (S27W53 L=  7)   768    175        0 (1449/ 366-1547/ 456) -12.1 W45-W59 S29-S24
  

    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