Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1519 1656 (N31W51 L=294)  2512    363        4 (1332/1616-1676/1693) -11.6 W36-W70 N27-N36
      2  580 1655 (N49E26 L=217)   332     28        1 ( 565/1630- 595/1680) -51.3 E28-E24 N47-N52
      3  930 1572 (N36W03 L=246)   238     57        0 ( 904/1548- 964/1591)  21.8 W01-W06 N34-N36
      4 1612 1508 (N20W50 L=293)  1136    200        0 (1544/1454-1692/1586) -59.0 W46-W55 N15-N26
      5 1666 1551 (N22W58 L=301)  1005    152        0 (1594/1517-1735/1577) -26.6 W51-W64 N18-N24
      6 1066 1541 (N31W12 L=255)   804    187        1 ( 990/1515-1170/1573) -24.4 W07-W18 N28-N34
      7 1412 1531 (N25W35 L=278)   481    115        0 (1371/1478-1453/1569) -74.1 W33-W36 N20-N27
      8  424 1458 (N37E38 L=205)  1380    279        0 ( 306/1416- 559/1490) -10.9 E51-E25 N32-N40
      9  984 1342 (N20W03 L=245)   243     73        0 ( 944/1322-1017/1364) -26.6 W00-W04 N18-N21
     10  359 1107 (N15E42 L=200)  1210    228        2 ( 300/1019- 430/1205) -58.4 E47-E37 N09-N22
     11 1709  937 (S15W44 L=287)  1619    388        2 (1615/ 744-1769/1068) -65.6 W37-W50 S27-S05
     12  262  652 (S10E62 L=181)   473     69        0 ( 246/ 615- 283/ 682)  33.7 E64-E58 S12-S08
     13  870  536 (S26E18 L=224)   683    227        0 ( 807/ 465- 908/ 640)  42.3 E24-E13 S30-S20
     14 1020  276 (S49E18 L=225)  1230    241        0 ( 933/ 240-1087/ 360)  18.4 E24-E09 S51-S42
  

    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