Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1606 1530 (N33W49 L= 40)   500    107        0 (1559/1503-1650/1559) -33.7 W44-W51 N30-N35
      2  760 1342 (N25E17 L=334)  3845   1106        8 ( 342/1103-1081/1553)  -7.9 E56-W03 N08-N39
      3 1436 1421 (N27W31 L= 22)   588    218        1 (1345/1394-1529/1436)   0.0 W23-W38 N25-N28
      4 1709 1226 (N13W49 L= 40)   928    246        2 (1625/1146-1786/1297) -39.8 W43-W55 N07-N17
      5  353 1177 (N15E47 L=304)   731    203        2 ( 334/1092- 380/1279) -85.2 E49-E43 N09-N21
      6  525 1189 (N16E33 L=318)   310     94        1 ( 501/1153- 545/1245) -71.6 E34-E31 N13-N19
      7  558 1062 (N08E30 L=321)   250     82        0 ( 528/1022- 585/1097)  45.0 E32-E28 N05-N09
      8  171  922 (S02E67 L=284)   800    189        1 ( 130/ 903- 218/ 940)   8.1 E74-E60 S02-N00
      9 1144  907 (S03W07 L=358)   211     39        1 (1116/ 887-1173/ 920) -18.4 W05-W08 S04-S02
     10 1431  863 (S07W25 L= 16)   577    147        1 (1370/ 823-1491/ 918) -41.2 W21-W29 S10-S03
     11  934  687 (S17E07 L=344)  1078    335        1 ( 805/ 571-1033/ 818)  43.2 E16-W00 S23-S08
     12 1580  759 (S15W37 L= 28)   374     93        2 (1546/ 734-1618/ 788) -18.4 W33-W39 S16-S13
     13 1120  508 (S30W05 L=356)  1708    355        3 ( 986/ 390-1292/ 608)  35.5 E05-W16 S38-S23
  

    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