Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1109 1889 (N54E35 L=293)   836     97        1 (1073/1862-1147/1915)  90.0 E41-E29 N49-N57
      2  700 1626 (N20E39 L=289)  2087    522        4 ( 652/1388- 751/1851) -50.9 E58-E30 N04-N36
      3 1176 1584 (N31E08 L=319)   547    240        1 (1133/1501-1225/1692) -40.2 E15-E02 N26-N37
      4  574  732 (S35E20 L=307)  1555    320        4 ( 418/ 683- 718/ 778)  28.4 E34-E10 S42-S29
      5  898  695 (S28W03 L=330)   224    144        0 ( 878/ 640- 928/ 757) -82.9 W01-W04 S31-S23
      6 1252  707 (S17W23 L=350)   384    109        2 (1203/ 680-1306/ 727)  26.6 W19-W25 S18-S15
      7 1429  580 (S18W39 L=  7)   951    232        2 (1364/ 527-1508/ 662)  74.7 W34-W41 S22-S11
      8 1059  612 (S28W15 L=343)  1002    245        5 ( 928/ 587-1161/ 643)  26.6 W06-W20 S32-S23
      9 1248  444 (S31W35 L=  3)   240    126        1 (1198/ 423-1301/ 481)  66.8 W32-W36 S34-S27
     10 1023  455 (S39W20 L=348)   284     57        1 ( 994/ 438-1053/ 470)  63.4 W18-W22 S40-S36
     11 1438  389 (S28W52 L= 20)   795    247        1 (1348/ 367-1545/ 431)  20.6 W43-W60 S30-S22
     12  668  373 (S58E03 L=325)  1045    166        3 ( 610/ 323- 735/ 419)  61.7 E08-W03 S65-S52
     13  562  356 (S65E16 L=312)  1317    111        5 ( 517/ 309- 609/ 406) -56.3 E23-E08 S69-S60
  

    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